PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
P PP 


P PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


GG 
GGGGGGGGG 


GGGGGGGGGGGG 
GGGGGGGGGGGG 


GGGGGGGGGGGG 
GG 


GGGGGGGGG 
GGGGGGGGG 


Att tt St st Ht Ht SH Ht tS St HH St 
| LLL) 
AHHH St tt St St tS St tS tS 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


o 


Va 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
09 
00 
00 


**F ILE**1D**RPGVECTOR 


000 
on 
000 
RRRRRRRR PPPPPPPP GGGGGGGG vv VV EEEEEEEEEE CCCCCCCC «OTTTTTTTTTT 000000 RRRRRRRR 000 
RRRRRRRR PPPPPPPP GGGGGGGG VV VV EEEEEEEEEE CCCCCCCC «OTTTTTTTTITT 000000 RRRRRRRR 000 
RR RR PP PP 6G vv vv EE cc TT 00 0O RR RR 000 
RR RR PP PP 6G vv vw EE cc TT 00 0O RR RR 000 
RR RR PP PP GG vv vy EE cc TT 00 00 RR RR 000 
RR RR PP PP GG vv vv EE cc TT 00 00 RR RR 000 
RRRRRRRR PPPPPPPP GG VV VV EEEEEEEE cc TT 00 00 RRRRRRRR 000 
RRRRRRRR PPPPPPPP GG vv VV EEEEEEEE cc TT 00 00 RRRRRRRR 485 
RR RR PP GG GGGGGG vv vw EE cc TT 00 00 RR RR 800 
RR RR pp GG GGGGGG vv vy EE cc TT 00 00 RR RR ook 
RR RR pp GG GG vow FE cc TT 00 00 RR RR sie OC 
RR RR PP G vow EE cc TT 00 00 RR RR wae 800 
RR RR PP GGGGGG Vv EEEEEEEEEE CCCCCCCC TT 000000 RR RR ee 800 
RR RR PP GGGGGG vv EEEEEEEEEE CCCCCCCC TT 000000 RR RR Sisal eo 
800 
800 
LL III SSSSSSSS 800 
LL eeeeel SSSSSSSS 800 
LL I] SS 800 
LL I] SS 800 
LL I] S$ aoe 
LL II $$ 
LL Il SSSSSS ook 
LL II SSSSSS 
LL II ss 80C 
LL I] Ss 
LL II ss 
LL I] $s 
LLLLLLLLLL III SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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bet r Breer ee FFL eee Rees eae r eee eee mans? ol) 


CTOR = Entry —— for RPGRTL.EXE 
/ File: RPGVECTOR.MAR Edit: DG1004 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THE 
ON OF THE ABOVE Sgt al, NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& ® 
® ® 
® ® 
® ® 
® ® 
® ® 
® ® 
® * 
® ® 
® ® 
* TRANSFERRED. ® 
+ ® 
® ® 
tr ® 
& ® 
® ® 
® ® 
* cf 
® ® 
® ® 
** * 


0 
ACCORD ANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
Pp 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRRBSARSAAAASLASLLARAAALARALESLARARERARESESARRSAS REAR RRS RR RARER RRRRR RAR AAAS SD SD | 


FACILITY: Run-Time Library = RPGII Language Support 
ABSTRACT: 


This module contains the entry vector definitions for the 
VAX-11 Run-Time Library shareable image RPGRTL.EXE 


ENVIRONMENT: User mode, AST Reentrant 
; AUTHOR: Debess Grabazs, CREATION DATE: 18-April-1983 
MODIFIED BY: 


- Original. DG yenferi i= -1983 
- Oe - Add in RPGSDSPLY. 2-Aug-1983 


SOoOSOCOSCOSSOSOSOOSOSOSOSSOSOSOSOSOSOSOSOSOSOOSOOSOSOOSOOSOSOOOSOSOSoOO 
SOOO OCOCOCSOSOSOOSOSOOSOSSOSOSOSOSOSOSOSOSOSOSCSOOSOOSOOOOCOSOSOOOOOOOSOOOO 


SOOQCOCOCOCOCOCOCOOCOCSOOSSSSSS cd OOSCCOCOOCOCOOOCOCCOOSOOOOoOoOoOO 


Add in RPGSDIVIDE. -Mar-1984 
The routine name in module RPGSDIVIDE is RPGS$DIV LONG, not 
RPGSDIVIDE. 6-Mar-1984 


BDNOUE WO OO NAMUE WIN O ODONAU EWN OC OONOAUE WN SOOO NOUS wn 


SOOOCOCOOCOCOOCOOOSOOOOOOSOSOOCOSOOOOOOOOOOOOSoCOoOO 
BBP ELE HS PANN NWI PONPONPNINONPYNPINI NN 2 OO Os Os Oe es 


Cooooco 


ee — aan 


RPGSVECTOR - Entry vectors for RPGRTL.EXE 19-SEP-1984 08 10:14 YAX/yas Macro V04-00 Page y or 
1 DECLARATIONS 6-SEP-1984 41:41 RPGRTL.SRCJRPGVECTOR.MAR; 1 (2) 
9 ~SBTTL DECLARATIONS 
§ ; LIBRARY MACRO CALLS: 

00 4; NONE 
Bae 5 3 

* 28 3 EXTERNAL DECLARATIONS: 
009 28 -DSABL GBL ; Force all external symbols to be declared 
0000 60 ; MACROS: 
4h 61; 

0 66 
0000 635 ;+ 
44 ¢) ; Macro to define an entry vector for a CALL entry point 
0000 06 
0000 6 eMACRO VCALL NAME, ALTMSK 
0000 68 eEXTRN NAME 
0000 69 . TRANSFER NAME 
0000 70 .1F B ALTMSK 
0000 71 . MASK NAME 
0000 if; oIFF 
0000 7 MASK ALTMSK 
0000 74 -ENDC 
0000 75 JMP NAME +2 
0000 76 ~ENDM 
0000 77 
0000 78 ; 
0000 79 ; EQUATED SYMBOLS: 
0000 80 ; 
aia 81; NONE 
0000 Hf : 
0000 83 ; OWN STORAGE: 
0000 84 ; 
0000 85 ; NONE 
0000 86 ; 
444 fi ; PSECT DECLARATIONS: 

00000000 89 -PSECT SRPGSVECTOR PIC, USR, CON, REL, LCL, SHR, - 

9000 30 EXE. RD, NOWRT, LONG 


EXE 


y 


| 


D 6 
ectors for RPGRTL.EXE 197 5b 1386 Oe: :10:14 VAX/VMS Macro Vv04-00 
ctor 6-SEP=-19 241:41 RPGRTL.SR CoR PGVECTOR.MAR; 1 


-SBTTL RPGRTL Vector 


RPGSVECTOR 
1-004 


Di 
v 
am 
zs 
7 


i petine vectored entry points for the RPGII Language Support procedures 
; by module in alphabetical order. 


5h Any additions to, this file should be reflected in 
: co leg oH yaar ALL new entry points must be appended to the end 


OOooooooooeo < 


e list. WEVER change existing entries unless you are sure that 
Athat you do won't break existing programs. 


: Module rma = 
VCAL RPGSERROR 


; Module were INDS 
RPGSEXT_INDS 


Module Seg 
VCAL RPGSHANDLER 


Module tg OE 
VCAL RPGSIOEXCEPTION 


; Module RPGSOPEN 
VCALL RPGSOPEN_INDEXED 


Module RPGS$PRINT 
VCALL RPGS$PR 
VEALL RPGS TERR. PRINT 


Module RPG$SQRT 
VCALL RPG$SQRT 


Module RPGSUDATE 
VCALL RPGSUDATE 


3; Module 2 egae © 
VCAL RPGSDSPLY 


3; Module RPGSDIVIDE 
VCALL RPG$DIV_LONG 


s¢ 
3: End of initial RPGRIL vector. ALL subsequent additions must be made 
3; after this point. 


SOOOCOCOCOSCOOCOOOOSOOOOSOOOSOOOSOOOOOOCOOOOOOOOOOOOOOOOOOOO rs 
WMWOOOODMOOOOOODWOOCOCMODDOWOMDMOOOOCMOMDMDOCOCDMDOOOOCOOCOOCOCOOCOCSOO w#c« 
FP WANWIWIW NANI IDI PIPIPONPININININIDD 2 9 2 SO SS SM COOOOOOOOOOOOOOOO 
AR=OOO NAME WIN 9 OO NAU EWN OS OONAUE WIN CO ODNAME WN OOONOUE WW 

. 


pe we ew wwe ewe) www ww ww wooo ololololololololeleleolololelolola) 
ke a tk ke dd dd od 


END ; End of module RPGSVECTOR 


RPGSVECTOR 
Symbol table 


RPGSDIV_LONG 
REGSDSPCY 


RPGSEXT_INDS 


SQR 
RPCS TERR PRINT 
RPGSUDATE 


PSECT name 


Initialization 


Command processing 


Pass 
Symbol table sort 
Pass 2 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


et Limit was 900 
pages) of virtua 


The_working 
2223 bytes ( 
There were 1 


Macro Library name 


Page faults 


- Entry vectors for RPGRTL.EXE 


Reeeeeee 
Reeeeeee 
ereerree 
eeeeeeee 
eeereree 
Reeeeenre 
Reeerenre 
ReeKeeee 
RReeeeee 
eeeeeene 
geeeeene 


>< OC OE OK OK OE OE OE OE OE OO 


oo 


guacce 


Allocation 
00000000 ( 0. 
00000058 (¢ 88. 


PSECT No. 


Attributes 


0.) NOPIC USR 
USR 


1.) PIC 


eee m eee eee eee mene eee eee $ 


CPU Time 
10 00:00:0 
81 00:00:0 
75 00:00:0 
0 00:00:0 
39 00:00:0 
3 00:00:0 
1 00:00:0 
0 00:00:0 
211 00:00:0 
ages. 


1, producing 1 


00:00:00.79 
00:00:03.95 
00:00:01.92 
00:00:00.00 
00:00:01.12 
00:00:00.14 
00:00:00.01 
00:00:00.00 
00:00:07.91 


2 object records in Pass 
1 page of virtual memory was used to define 1 macro. 


Geececcoceeeooeesoesoeeseres 


eee nent Ome eee y 


“$255$DUA28: CSYSLIBISTARLET.MLB;2 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


CON 
CON 


memory were used to buffer the intermediate code. 
pages of symbol table space el yecaree to hold 11 non-local and 0 local symbols. 
141 source Lines were read in Pass Ze 


ABS 
REL 


LCL 


AX/VMS Ma 
RPGRTL.SR 


SHR 


MACRO/ENABLE=SUPPRESSION/LIS=L1S$:RPGVECTOR/OBJ=OBJ$:RPGVECTOR MSRC$:RPGVECTOR/UPDATE=(ENHS$:RPGVECTOR) 


ac 
C 


ro V04-00 


Page 
JRPGVECTOR.MAR; 1 


LCL NOSHR Paes NORD NOWRT NOVEC BYTE 


RD NOWRT NOVEC LONG 


82 


DEF 


LIE 


SE EQUIPMENT CORPORATION 


0 


NTIAL -AND PROPRIETARY 


